:- module(db_maintenance, [main/0], [actmods]).

%%%%%%%%%%%%%%%%%%%%%%%%%%%% Needed modules %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
:- use_active_module(dbserver, [db_maintenance/3]).
:- use_module(library('actmods/filebased_locate')).
:- use_module(library('pillow/html')).
%%%%%%%%%%%%%%%%%%%%%%%%%%%% Defined predicates  %%%%%%%%%%%%%%%%%%%%%%%%
:- use_module(search(utils)).
:- include(password).

main:- 
	html_protect(main1). % To see errors in Netscape

main1:-
	log_message('starting db_maintenance'),
	get_form_input(Input),!,
	password(Passwd),
	log_message('calling db_server'),
	db_maintenance(Input, Passwd, Response),
	log_message('generating answer page'),
	output_html(Response).

%% Version comment prompting control for this file.
%% Local Variables: 
%% mode: CIAO
%% update-version-comments: "off"
%% End:

